home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGMISC
/
FORTRAN1.LZH
/
CTIME.FOR
< prev
next >
Wrap
Text File
|
1988-02-08
|
2KB
|
86 lines
SUBROUTINE CTIME ( ATIME )
C*
C* *******************************
C* *******************************
C* ** **
C* ** CTIME **
C* ** **
C* *******************************
C* *******************************
C*
C* SUBPROGRAM :
C* CLOCK TIME
C*
C* AUTHOR :
C* ART RAGOSTA
C* MS 207-5
C* AMES RESEARCH CENTER
C* MOFFETT FIELD, CA 94035
C* (415) 694-5578
C*
C* PURPOSE :
C* RETURN THE PRESENT WALL CLOCK TIME IN 12 HOUR
C* FORMAT WITH AM/PM DESIGNATION.
C*
C* METHODOLOGY :
C* USES THE DEC BUILTIN 'TIME' ROUTINE.
C*
C* INPUT ARGUMENTS :
C* NONE
C*
C* OUTPUT ARGUMENTS :
C* ATIME - THE PRESENT CLOCK TIME IN "HH:MM AM/PM" (A8) FORMAT.
C*
C* INTERNAL WORK AREAS :
C* NONE
C*
C* COMMON BLOCKS :
C* NONE
C*
C* FILE REFERENCES :
C* NONE
C*
C* DATA BASE ACCESS :
C* NONE
C*
C* SUBPROGRAM REFERENCES :
C* TIME
C*
C* ERROR PROCESSING :
C* NONE
C*
C* TRANSPORTABILITY LIMITATIONS :
C* TIME IS A NON-STANDARD BUILTIN SUBROUTINE.
C*
C* ASSUMPTIONS AND RESTRICTIONS :
C* NONE
C*
C* LANGUAGE AND COMPILER :
C* ANSI FORTRAN 77
C*
C* VERSION AND DATE :
C* VERSION I.0 31-AUG-84
C*
C* CHANGE HISTORY :
C* 31-AUG-84 INITIAL VERSION
C*
C***********************************************************************
C*
CHARACTER *8 ATIME
C
CALL TIME ( ATIME )
IF (ATIME(1:2) .GT. '12') THEN
ATIME(1:1) = CHAR (ICHAR(ATIME(1:1)) - 1)
ATIME(2:2) = CHAR (ICHAR(ATIME(2:2)) - 2)
ATIME = ATIME(1:5) // ' PM'
ELSE IF (ATIME(1:2) .EQ. '12') THEN
ATIME = ATIME(1:5) // ' PM'
ELSE
ATIME = ATIME(1:5) // ' AM'
ENDIF
RETURN
END
C
C---END CTIME
C